home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
mcedit10.zip
/
HOURGLAS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-19
|
2KB
|
53 lines
PROCEDURE hourglasMouse;
var
hourglasmasks : array[0..1,0..15] of word;
Regs : Registers;
BEGIN
{ Screen Mask }
hourglasmasks[0,0] := $0000; {0000000000000000}
hourglasmasks[0,1] := $0000; {0000000000000000}
hourglasmasks[0,2] := $0000; {0000000000000000}
hourglasmasks[0,3] := $8001; {1000000000000001}
hourglasmasks[0,4] := $8001; {1000000000000001}
hourglasmasks[0,5] := $8001; {1000000000000001}
hourglasmasks[0,6] := $8001; {1000000000000001}
hourglasmasks[0,7] := $8001; {1000000000000001}
hourglasmasks[0,8] := $8001; {1000000000000001}
hourglasmasks[0,9] := $8001; {1000000000000001}
hourglasmasks[0,10] := $8001; {1000000000000001}
hourglasmasks[0,11] := $8001; {1000000000000001}
hourglasmasks[0,12] := $8001; {1000000000000001}
hourglasmasks[0,13] := $0000; {0000000000000000}
hourglasmasks[0,14] := $0000; {0000000000000000}
hourglasmasks[0,15] := $0000; {0000000000000000}
{ Cursor Mask }
hourglasmasks[1,0] := $FFFF; {1111111111111111}
hourglasmasks[1,1] := $8001; {1000000000000001}
hourglasmasks[1,2] := $D7EB; {1101011111101011}
hourglasmasks[1,3] := $57EA; {0101011111101010}
hourglasmasks[1,4] := $542A; {0101010000101010}
hourglasmasks[1,5] := $5A5A; {0101101001011010}
hourglasmasks[1,6] := $5DBA; {0101110110111010}
hourglasmasks[1,7] := $5E7A; {0101111001111010}
hourglasmasks[1,8] := $5E7A; {0101111001111010}
hourglasmasks[1,9] := $5DBA; {0101110110111010}
hourglasmasks[1,10] := $5BDA; {0101101111011010}
hourglasmasks[1,11] := $566A; {0101011001101010}
hourglasmasks[1,12] := $542A; {0101010000101010}
hourglasmasks[1,13] := $D00B; {1101000000001011}
hourglasmasks[1,14] := $8001; {1000000000000001}
hourglasmasks[1,15] := $FFFF; {1111111111111111}
regs.AX := 9;
regs.BX := 1;
regs.cx := 1;
regs.DX := ofs(hourglasmasks);
regs.ES := seg(hourglasmasks);
Intr(51,Regs);
end;